home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / attall / attabout.frm < prev    next >
Text File  |  1995-05-08  |  4KB  |  145 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About..."
  6.    ClientHeight    =   3480
  7.    ClientLeft      =   4035
  8.    ClientTop       =   2625
  9.    ClientWidth     =   3480
  10.    ControlBox      =   0   'False
  11.    Height          =   3885
  12.    Icon            =   ATTABOUT.FRX:0000
  13.    Left            =   3975
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form3"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   3480
  19.    ScaleWidth      =   3480
  20.    Top             =   2280
  21.    Width           =   3600
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   375
  25.       Left            =   1080
  26.       TabIndex        =   6
  27.       Top             =   2760
  28.       Width           =   1335
  29.    End
  30.    Begin Label Label1 
  31.       Alignment       =   2  'Center
  32.       BackColor       =   &H00C0C0C0&
  33.       Caption         =   "or neslon@panix.com"
  34.       Height          =   255
  35.       Index           =   8
  36.       Left            =   0
  37.       TabIndex        =   7
  38.       Top             =   2400
  39.       Width           =   3495
  40.    End
  41.    Begin Label Label1 
  42.       Alignment       =   2  'Center
  43.       BackColor       =   &H00C0C0C0&
  44.       Caption         =   "70741,422"
  45.       Height          =   255
  46.       Index           =   7
  47.       Left            =   0
  48.       TabIndex        =   5
  49.       Top             =   2160
  50.       Width           =   3495
  51.    End
  52.    Begin Label Label1 
  53.       Alignment       =   2  'Center
  54.       BackColor       =   &H00C0C0C0&
  55.       Caption         =   "Wilson Smith and Carole Rogers"
  56.       Height          =   255
  57.       Index           =   9
  58.       Left            =   0
  59.       TabIndex        =   8
  60.       Top             =   1920
  61.       Width           =   3495
  62.    End
  63.    Begin Label Label1 
  64.       Alignment       =   2  'Center
  65.       BackColor       =   &H00C0C0C0&
  66.       Caption         =   "Questions, comments to:"
  67.       Height          =   255
  68.       Index           =   4
  69.       Left            =   0
  70.       TabIndex        =   4
  71.       Top             =   1680
  72.       Width           =   3495
  73.    End
  74.    Begin Label Label1 
  75.       Alignment       =   2  'Center
  76.       BackColor       =   &H00C0C0C0&
  77.       Caption         =   "Enjoy it!"
  78.       Height          =   255
  79.       Index           =   3
  80.       Left            =   0
  81.       TabIndex        =   3
  82.       Top             =   1200
  83.       Width           =   3495
  84.    End
  85.    Begin Label Label1 
  86.       Alignment       =   2  'Center
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   "No warranties, no liabilities"
  89.       Height          =   255
  90.       Index           =   2
  91.       Left            =   0
  92.       TabIndex        =   2
  93.       Top             =   840
  94.       Width           =   3495
  95.    End
  96.    Begin Label Label1 
  97.       Alignment       =   2  'Center
  98.       BackColor       =   &H00C0C0C0&
  99.       Caption         =   "Free, public domain, etc."
  100.       Height          =   255
  101.       Index           =   1
  102.       Left            =   0
  103.       TabIndex        =   1
  104.       Top             =   600
  105.       Width           =   3495
  106.    End
  107.    Begin Label Label1 
  108.       Alignment       =   2  'Center
  109.       BackColor       =   &H00C0C0C0&
  110.       Caption         =   "All the Time v2.0"
  111.       Height          =   255
  112.       Index           =   0
  113.       Left            =   0
  114.       TabIndex        =   0
  115.       Top             =   135
  116.       Width           =   3495
  117.    End
  118. End
  119. '11/16  1.0 - 1.01 -> non-tiling.  consistent hourglassing
  120. '11/17 1.01 - 1.02 -> stopped doing a CLS for tiled preview
  121. '                     (bug introduced in 1.01)
  122. '11/17 1.02 - 1.03 -> stopped doing a CLS at all.  PatBlt for non-tiled background
  123. '11/24 1.1
  124.  
  125. 'lots of versions, one to CIS, one to JB and LB,
  126. '                  one to SJH and MS
  127. '1/18  1.15        -> sent 1.11d to Brad Friedman
  128. '                  -> went through C's list of things, mostly minor.
  129.  
  130.  
  131. Sub Command1_Click ()
  132. Unload Form3
  133. End Sub
  134.  
  135. Sub Form_Load ()
  136. If Settings.Visible Then
  137.    Form3.Left = Settings.Left + (Settings.Width / 2) - (Form3.Width / 2)
  138.    Form3.Top = Settings.Top + (Settings.Height / 2) - (Form3.Height / 2)
  139. Else
  140.    Form3.Left = Screen.Width / 2 - (Form3.Width / 2)
  141.    Form3.Top = Screen.Height / 2 - (Form3.Height / 2)
  142. End If
  143. End Sub
  144.  
  145.